home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1984 November / 64er_Magazin_84-11_1984_Markt__Technik_de.d64 / list 5 (joy) (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  568b  |  17 lines
  1. 30 rem ********************************
  2. 31 rem *           j  o  y            *
  3. 32 rem ********************************
  4. 33 rem * ergaenzung zu simon's basic  *
  5. 34 rem * format: Dq n                *
  6. 35 rem * stellt Dqstickport ein      *
  7. 36 rem * > beispiel: Dq1 (fuer port1)*
  8. 37 rem *             Dq2 (fuer port2)*
  9. 38 rem ********************************
  10. 39 k=0:print" j o y [146]      ?checksum ";
  11. 40 fori=$bfe3 to $bff1:read j:poke i,j:k=k+j:next
  12. 41 data32,115,,32,6,129,138,41,1,141
  13. 42 data213,136,76,42,130
  14. 43 poke$88da,111:poke$88fc,16
  15. 44 poke$8764,226:poke$8765,191
  16. 45 ifk=1232thenprint"ok":Dg:print"error"
  17.